home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
ansc174.zip
/
RSB5ANSI.MRG
< prev
Wrap
Text File
|
1992-07-10
|
2KB
|
44 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
* RBBSSUB5.BAS: Date 6-20-1992 Size 116575 bytes
* ------------[ Created 06-28-1992 22:20:51 ]------------
* REPLACING old line(s) by new
63700 ' $SUBTITLE: 'TestANSI - test caller for ANSI support'
' $PAGE
'
' NAME -- TestANSI
' MEANING
' INPUTS -- ZTestANSITime # of seconds to wait for ANSI response
' 0 = do not test for ANSI
'
* ------[ first line different ]------
' OUTPUTS -- ZANSITest = ZTrue if ANSI detected ' DD062801/ANSICHAT
'
' PURPOSE -- Test callers' software for support of ANSI graphics
'
SUB TestANSI STATIC
IF ZTestANSITime < 1 THEN _
GOTO 63705
IF ZLocalUser THEN _
IF ZDOSAnsi THEN _
GOTO 63710 _
ELSE GOTO 63705
CALL FlushCom(Temp$)
CALL PutCom (ZEscape$ + "[6n")
CALL DelayTime(ZTestANSITime)
CALL WipeLine (5)
CALL FlushCom(Temp$)
CALL WipeLine (5)
Temp = INSTR(Temp$,ZEscape$ + "[")
IF Temp > 0 THEN _
Temp = INSTR(Temp,Temp$,"R") : _
IF TEMP > 0 AND TEMP < 9 THEN _
GOTO 63710
* REPLACING old line(s) by new
63710 CALL SetGraphic(2)
ZHiLiteOff = ZFalse
CALL QuickTPut1 ("ANSI detected")
* ------[ first line different ]------
ZANSITest = ZTrue ' DD062801/ANSICHAT
END SUB